﻿Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel

Namespace Dominio
    Public Class ActividadDiaLibre
        Inherits SIAVU.Dominio.Actividad

        Public Overrides ReadOnly Property TipoActividadID() As Integer
            Get
                Return ETipoActividad.DiaLibre
            End Get
        End Property

        Public Overrides Property InformacionCompleta() As String
            Get
                If MyBase.InformacionCompleta = "" Then
                    Return "Dia Libre"
                Else
                    Return MyBase.InformacionCompleta
                End If

            End Get
            Set(ByVal value As String)
                MyBase.InformacionCompleta = value
            End Set
        End Property
    End Class


End Namespace

